﻿Imports System.Xml

Public Class PathPointType

	Property Anchor As UnitPointType

	Property LeftDirection As UnitPointType

	Property RightDirection As UnitPointType

	Public Shared Function ReadXml(reader As XmlReader) As PathPointType
		Dim ppt As New PathPointType()

		ppt.Anchor = New UnitPointType(reader.GetAttribute("Anchor"))
		ppt.LeftDirection = New UnitPointType(reader.GetAttribute("LeftDirection"))
		ppt.RightDirection = New UnitPointType(reader.GetAttribute("RightDirection"))

		Return ppt
	End Function
End Class
